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Con la lezione 35 abbiamo terminato la spiegazione delle istruzioni 
presenti nell'HELP. 

In questa ultima lezione vedremo invece altre 5 routines in 
linguaggio macchina (esterne all'HELP), per creare effetti molto 
particolari non realizzabili con il basic standard. 


permette di usare contemporaneamente due colori di sfondo, 
dividendo così lo schermo in due o tre parti con evidenti vantaggi 
grafici. 

Per attivare l'istruzione dovrai scrivere SYS(49235), mentre per 
disattivarla SYS(49258). 





ha una funzione simile all'istruzione RESTORE (lez. 17), ma a 
differenza di questa permette di posizionare il puntatore dei dati 
ad una qualsiasi linea di DATA specificandone il numero. 

Per usare l'istruzione dovrai scrivere SYS(49460), seguita dal 
numero di linea su cui posizionarsi. 





permette di posizionare il cursore in qualsiasi punto del video 
specificandone la coordinata orizzontale e quella verticale. 

Per usare questa istruzione dovrai scrivere SYS(49510), seguita 
dal numero della riga, dalla virgola e dal numero della colonna su 
cui posizionare il cursore. 





per provocare lo scroll verso l'alto, cioè lo scorrimento delle linee 
verso l'alto, dovrai definire con i due POKE (49665 e 49772) quale 
gruppo di linee devono scrollare e quindi attivare lo scroll con 
l'istruzione SYS(49702). 


scrivendo invece SYS(49792) potrai attivare lo scroll in basso, cioè 
lo scorrimento delle linee verso il basso. 


NB: Ogni volta che si vorranno utilizzare le istruzioni occorrerà 
prima caricare il programma ROUTINES allegato. 


PROGRAMMIAMO INSIEME (CBM 64) 
ISTOGRAMMI 3° PARTE 


146509 forr=1toz 

1479 nn=inttly(P)/nx199) 

14509 ifb$(r)=""thennextr:igoto 16209 

1439 print SEECCECECCCECECeCCeCCCeRaREREspessi __-_—_ 
u 

15009 print "MEBBBRDDI | Iv,P,ot_,ul" 
1519 print 'SEGCCCECECECCEECCCCECCERRRERBpReREI":n5r); 
v(rd):igoto1540 

1529 print "SEECEECCCCECECECECCCCCCEeRReR EREDI 
n 

1539 print SECECCCCCCCCCeCECECECEEeRpppR EER: 
bee" inni "5" 

1540 getzf:ifz$=""then1540 

1559 ifz#="v "then 1699 

15659 ifz$="u"then1639 

15709 ifz$="p"then1529 

1589 ifz£="t"then1660 

1590 goto1549 


1690 print "SEECCCECECECECECCECECCERERBRE EREDI 


1619 print "JSEece 
1629 ifr>zthen1i460 
1639 print "SEeCCeECCECCCCEEEEECEEÌ 





e” :nextr 





1649 print" 
1659 goto8349 


1669 print "SEGG CCCCECECECECECECCEEeRERERE EDI 


1679 print "£& 
"in:!goto 15409 





1919 rem caricamento istogrammi 

1929 print "Eldi"tab (8) "SM caricamento istogrammi sil" 
1930 print"SEEeel"tab (13) "selezione file” 

1940 1$="" 

1959 print"EEelinserisci il nome Q return d@ per‘ fin 
ire)"; 

19609 input "fI":1£ 

1979 ifl$£=""then2350 

1989 input "Ehumero istogramma {1-19)":c£ 

1990 if (val(c£)<1)+(val(c$)>19)then19209 

2939 c=val (c£):du=2@ 

2049 print"SEbu EMigisco o Mhalastro? "? 

29509 getz£ 

2969 ifz$£>"d"'then2199 

2070 fis=1$+",s,r"iprintz$:dv=8S!0pen1,8,2,fi$#:gosub4 
209 

20309 ifel<‘>Qthenfori=ito 1909:next!iclosel:goto19S19 
2999 goto2139 

2190 ifz£>"t"then2959 

2119 fis=1£:printz£:dv=l:cpenl,1,9,fi®* 

2129 ifst<>0Othen4320: 

2129 print "EBlistogramma n. "ci "loading" 

2149 input#1,a$(c):g0sub42099 

2159 input#1,mi‘(c):gosub42909 

21659 input#1,bb‘c?:g905ub4209 

2179 input#1,cc(c):!g90sub42099 

2189 inputfl1,z(c):30sub42909 

2199 input#1,n“c):905ub42909 

2200 forr=ltoz(c)I 

2219 input#1,q99$(c,r):g90s5ub42909 

2229 nextr 

2239 forr=lttoz<“c) 

2249 inputfl,nn$(c,r):g90sub4299 

2259 nextr 

2289 forr=1itozic) 

2279 input#1,vv(c,r3:905ub4299 

2280 nextr 

2299 input#1l,aa5£(c):goasub4200 


2789 


input#1,bb$(c):90sub4299 
closel:ifec=lthenclose8Siec=@ 
print "Eei:lEe:;" loaded" 


I fort=ito1259:naxtt 


got01919 

print"S" 

print "Etabtc6) "sem menu selezione istogzrammi di" 
print "Emme: . bia #1) 

print "Bi bas 2) 

print "Bi bl'a#3) 

print "EB 2349) 

print "be bias 5) 

print "BB .B'aES) 

print "BB -bl'atC7) 

print "BB Bia 8) 

print "EB: .Bl'a#9) 

print "BB Bia 19) 

print "FGecel'tab(14)"scelta Sa-j)”" 

print "SCERBI=menu" 

getz$& 

ifz&="m"then959 

if(z$5<0"a")+(2z£>"j">)then2499 

c=asc (z2£)-64 
ré=at(cC)ljc=mi (Cc) KK=bb{cC)imm=cce (C)i 

xx=z (C)ibz=n{cC? 
forr=ttoxxiy$(r)=qqg$(c,r):inc$£(r)=nn$(cC,P)ivc PP) 
sriinextr 

ss$t=aa$(C)!vu£=bb£(c) 

print "Z5BBBrRs":r$ 

print "S5CCRRpPBBBREI" ; jc 

print "Aaceel"spc(23-l1en str E(KK33+1235KK 

print "SEeel"spc(37-1enfstr$(mm))+1)5mm 
Pririt"iBBbbBBERBBRI, Pv  _ryy——P—_—— r————_Éé£6_ ii 
forr=1toxx 

gosub3299 

t$E=0$+y£r) 
ifyv&(r)="x"thenprint:inextri!ifr>xxtheno779 
printts 

nextr 

print"2B2B2BBB8B82685 A+" 
ifss$5="%"then2890 


e 79080primnt® 
22909 print 
2219 ifvus="%"then2839 

2829 print" id 3 MZ" us 

2830 print "SECCCCECCCCCeCCECCECCCeRRaRpRaSssi -__—_ 


" 
—EEREZhZBàhghghM\NM5%H A MZ‘ Z‘ZZZZI-|-||--- | 


2849 print "iBBPBBBBEBBI|/=valore s=selezione m=menul" 
28509 getx$ 

28709 ifx£="s "then2350 

2889 if (x$="u")%(bz>90)then30909 

2899 ifx£="m"then950 

2900 if (x£<"a")+(x£>"j")then2860 

2919 c=asc(x£)-64:got02629 

3000 forr=ltoxx 

3019 nn=intifivco ‘ri -bz&£&$ 196) 

3929 ifuc(r>=@dthennextrisoto3289 

3930 print "AECCCECCCECCCCCCCEeCECCesRRERsSEsss —_ 


“ie >—{— i AD; 

392409 print "BMEBBBBBDI | INopotyul" 
3059 print "SECC CCCCCCECEECCCECECCeRRRBBBBERI" rr) 
5WC (HF)!isoto30980 

3050 print "SECC CEEEECECECCCCERRRR EE BERE ERRE! 
abi n 

3079 print "SEECCCECCECCECECCCCECCECEREeRpRE SE PRREEEEEEDD: 
BRE" inno" 

30839 getz® 

3090 ifz&£="vu "then32349 

3160 ifz$5="p"thaen3060 

Silvi ifzE&="t"then3279 

31209 ifz#="u"then29830 

3139 if (z$5<0"a"3+(z£>"j">then30989 

3149 c=sasc(z2$5)-64:!g0t026520 

3248 print "SEECCEECCECCCCCECECCCECeRpRpEDER RI 


Wiisi= "s=s#:goto2819 





3259 print SEECCECCCCCCCCCCECECCCECeRRppEEBBDRI" :rextr 

32609 ifr>xxthen30900 

3279 print "SECCCECCECECECCECCECCCERERpEBEREDI 

3280 print "SECECECCECECCECCECEECCECeRRBEBEBEDI tale 
"ibz:!got0o3089 

3290 o$=mid@‘ "ik rai" ri): return 
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ISTRUZIONI PER L'UTILIZZO DEGLI ISTOGRAMMI 


Il programma serve per rappresentare graficamente, utilizzando gli istogrammi, 
degli insiemi di dati inseriti. 

Appena mandato in esecuzione, dopo la presentazione, comparirà il menù 
principale: 


I INSERIMENTO 
C CARICAMENTO 
F. FINE PROGRAMMA 


Premendo la | entrerai nella fase di INSERIMENTO e ti verrà richiesto il nome 
dell’istogramma, il numero delle barre che intendi utilizzare (il massimo è 12), il 
valore minimo e quello massimo dei dati che poi inserirai. 


A questo punto per ogni barra dovrai specificare: il nome, il valore e infine 
sceglierne il simbolo. 

In questo modo potrai dividere i dati in due categorie. Ad esempio, se stai facendo 
un istogramma delle vendite di un negozio di computer potrai associare al simbolo 
1 le vendite e al simbolo 2 gli accessori. 

Dopo aver effettuato gli inserimenti, tutti i dati ti verranno riepilogati; quindi ti 
verrà chiesto se desideri compiere correzioni e quale descrizione vuoi associare a 
ciascuno dei due simboli delle barre. 


A questo punto verrà visualizzato l’istogramma e sarà possibile usare le seguenti 
opzioni: 


S SALVA 
V. VALORE 
MU MENU 


Premendo la S_ salverai l'istogramma sul nastro o sul disco. 
Premendo la M tornerai al menù principale. 

Premendo la V verrà visualizzato il valore della prima barra e ti verrà 
mostrato l'uso dei seguenti tasti: 


VV. per vedere il valore della barra successiva. 

P_ per visualizzare la percentuale della barra in questione. 
T. per visualizzare il totale di tutte le barre. 

U per tornare al menù visto in precedenza. 


L'opzione C del menù principale ti permetterà di caricare, uno alla volta, fino ad un 
massimo di 10 istogrammi, che potranno essere mantenuti contemporaneamente 
in memoria. 

Per caricare un istogramma dovrai specificarne il nome e il numero da associargli 
(da 1 a 10). In questo modo, tramite il menù che verrà visualizzato, potrai passare 
velocemente da un istogramma all'altro potendoli confrontare. 

Premendo la F potrai terminare l'esecuzione del programma. 


